home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
program
/
swagn_r.zip
/
OOP.SWG
/
0004_FILEDLG1.PAS.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-05-28
|
675b
|
38 lines
{
> In particular a collection of Filenames in the current directory sorted
> and the ability to scroll these Strings vertically.
CCompiled and tested under BP7. All Units are standard Units available with
both TP6 and BP7 packages
}
Program ListDirProg;
Uses
Objects,App,StdDlg;
Type
MyApp = Object(TApplication)
Procedure run; Virtual;
end;
Procedure myapp.run;
Var
p : PFileDialog;
begin
New(P,init('*.*','Directory Listing', '~S~earch Specifier', fdokbutton,0));
if p <> nil then
begin
execview(p);
dispose(p,done);
end;
end;
Var
a : myapp;
begin
a.init;
a.run;
a.done;
end.